home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / parallel-C disk .adf / trd.c < prev    next >
C/C++ Source or Header  |  1997-12-31  |  1KB  |  48 lines
  1. #include "string.h"
  2. #include "linkio.c"
  3.  
  4. main()
  5. {
  6.    FILE *fp;
  7.    char fname[30],buffer[1],*chptr;
  8.    long i, j=0L;
  9.  
  10.    printf("\nAutomatischer Fileempfang über das LinkInterface\n");
  11.  
  12.    init_root();
  13.    reset_root();
  14.    printf("Waiting\n");
  15.    chptr = fname;
  16.    *chptr = (char) byte_from_link();
  17.    while (*chptr!='\0') {
  18.       chptr++;
  19.       *chptr = (char) byte_from_link();
  20.    }
  21.    while (fname[0]!='!') {
  22.       fp = fopen(fname,"w");
  23.       if (fp==NULL) {
  24.           printf("Fehler beim öffnen des Files %s!\n", fname);
  25.           break;
  26.       }
  27.       else {
  28.          j++;
  29.          printf("\nEmpfange File %s\n", fname);
  30.          i = long_word_from_link();
  31.          printf("Filelänge ist %8ld\n", i);
  32.          while((i--)>0L) {
  33.             buffer[0] = (char) byte_from_link();
  34.             fwrite(buffer,1,1,fp);
  35.          }
  36.          fclose(fp);
  37.          chptr = fname;
  38.          *chptr = (char) byte_from_link();
  39.          while(*chptr!='\0') {
  40.             chptr++;
  41.             *chptr = (char) byte_from_link();
  42.          }
  43.       }
  44.    }
  45.    printf("%8ld Files Übertragegen\n", j);
  46. }
  47.  
  48.